Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue27/construc/UNIT1.DFM/UNIT1.txt

Text File | 1997-09-29 | 8.0 KB | 361 lines

object MainForm: TMainForm
  Left = 284
  Top = 156
  Width = 640
  Height = 480
  ActiveControl = EditURL
  Caption = 'InterBob v0.9'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 632
    Height = 430
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'homepage'
      object Splitter1: TSplitter
        Left = 305
        Top = 61
        Width = 3
        Height = 341
        Cursor = crHSplit
        MinSize = 150
        OnMoved = Splitter1Moved
      end
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 624
        Height = 61
        Align = alTop
        BevelOuter = bvNone
        PopupMenu = PopupMenuSuspected
        TabOrder = 0
        object Label1: TLabel
          Left = 4
          Top = 8
          Width = 95
          Height = 13
          Caption = 'Webpage to check:'
        end
        object Label2: TLabel
          Left = 4
          Top = 46
          Width = 147
          Height = 13
          Caption = '(Sub)pages currently checking:'
        end
        object Label3: TLabel
          Left = 312
          Top = 46
          Width = 102
          Height = 13
          Caption = '(Sub)pages checked:'
        end
        object Label4: TLabel
          Left = 67
          Top = 28
          Width = 32
          Height = 13
          Caption = 'Depth:'
        end
        object EditURL: TEdit
          Left = 104
          Top = 4
          Width = 445
          Height = 21
          TabOrder = 0
          Text = 'http://'
        end
        object BitBtn1: TBitBtn
          Left = 556
          Top = 0
          Width = 64
          Height = 25
          Caption = '&Check'
          TabOrder = 4
          OnClick = BitBtn1Click
          Kind = bkOK
          Margin = 4
        end
        object CheckBoxLocalDisk: TCheckBox
          Left = 484
          Top = 28
          Width = 65
          Height = 17
          Caption = 'local disk'
          TabOrder = 3
        end
        object EditDepth: TEdit
          Left = 104
          Top = 24
          Width = 45
          Height = 21
          TabOrder = 1
          Text = '999'
        end
        object BitBtn2: TBitBtn
          Left = 556
          Top = 28
          Width = 64
          Height = 25
          Caption = '&Stop'
          TabOrder = 5
          OnClick = BitBtn2Click
          Kind = bkCancel
          Margin = 4
        end
        object CheckBoxCGI: TCheckBox
          Left = 400
          Top = 28
          Width = 81
          Height = 17
          Caption = '*.exe/*.asp?'
          TabOrder = 2
        end
      end
      object ListBoxChecking: TListBox
        Left = 0
        Top = 61
        Width = 305
        Height = 341
        Align = alLeft
        ItemHeight = 13
        TabOrder = 1
      end
      object MemoChecked: TMemo
        Left = 308
        Top = 61
        Width = 316
        Height = 341
        Align = alClient
        PopupMenu = PopupMenuHomePage
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 2
        WordWrap = False
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'suspected links'
      object MemoSuspect: TMemo
        Left = 0
        Top = 0
        Width = 624
        Height = 402
        Align = alClient
        PopupMenu = PopupMenuSuspected
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
        WordWrap = False
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'broken links'
      object MemoBroken: TMemo
        Left = 0
        Top = 0
        Width = 624
        Height = 402
        Align = alClient
        PopupMenu = PopupMenuBrokenLinks
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
        WordWrap = False
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'external links'
      object MemoExternal: TMemo
        Left = 0
        Top = 0
        Width = 624
        Height = 402
        Align = alClient
        PopupMenu = PopupMenuExternalLinks
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
        WordWrap = False
      end
    end
    object TabSheet5: TTabSheet
      Caption = 'mailto:'
      object MemoMailTo: TMemo
        Left = 0
        Top = 0
        Width = 624
        Height = 402
        Align = alClient
        PopupMenu = PopupMenuMailTo
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
        WordWrap = False
      end
    end
    object TabSheet6: TTabSheet
      Caption = 'news://'
      object MemoNews: TMemo
        Left = 0
        Top = 0
        Width = 624
        Height = 402
        Align = alClient
        PopupMenu = PopupMenuNews
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
        WordWrap = False
      end
    end
    object TabSheet7: TTabSheet
      Caption = 'ftp://'
      object MemoFTP: TMemo
        Left = 0
        Top = 0
        Width = 624
        Height = 402
        Align = alClient
        PopupMenu = PopupMenuFTP
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
        WordWrap = False
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 430
    Width = 632
    Height = 23
    Panels = <>
    SimplePanel = True
    SimpleText =
      ' IntraBob 0.9 (c) 1997 by Bob Swart (aka Dr.Bob - www.drbob42.co' +
      'm) for Under Construction column in The Delphi Magazine #27'
  end
  object BrokenLink1: TBrokenLink
    OnUpdate = BrokenLink1Update
    Left = 276
    Top = 64
  end
  object PopupMenuSuspected: TPopupMenu
    Left = 96
    Top = 92
    object Save2: TMenuItem
      Tag = 2
      Caption = '&Save suspected links...'
      Hint = 'Save suspected links'
      OnClick = SaveClick
    end
    object About2: TMenuItem
      Caption = '&About...'
      OnClick = AboutClick
    end
  end
  object PopupMenuBrokenLinks: TPopupMenu
    Left = 172
    Top = 92
    object Save3: TMenuItem
      Tag = 3
      Caption = '&Save broken links...'
      Hint = 'Save broken links'
      OnClick = SaveClick
    end
    object About3: TMenuItem
      Caption = '&About...'
      OnClick = AboutClick
    end
  end
  object PopupMenuExternalLinks: TPopupMenu
    Left = 248
    Top = 92
    object Save4: TMenuItem
      Tag = 4
      Caption = '&Save external links...'
      Hint = 'Save external links'
      OnClick = SaveClick
    end
    object About4: TMenuItem
      Caption = '&About...'
      OnClick = AboutClick
    end
  end
  object PopupMenuMailTo: TPopupMenu
    Left = 300
    Top = 92
    object Save5: TMenuItem
      Tag = 5
      Caption = '&Save mailto:...'
      Hint = 'Save mailto:'
      OnClick = SaveClick
    end
    object About5: TMenuItem
      Caption = '&About...'
      OnClick = AboutClick
    end
  end
  object PopupMenuNews: TPopupMenu
    Left = 348
    Top = 92
    object Save6: TMenuItem
      Tag = 6
      Caption = '&Save news://...'
      Hint = 'Save news://'
      OnClick = SaveClick
    end
    object About6: TMenuItem
      Caption = '&About...'
      OnClick = AboutClick
    end
  end
  object PopupMenuFTP: TPopupMenu
    Left = 392
    Top = 92
    object Save7: TMenuItem
      Tag = 7
      Caption = '&Save ftp://...'
      Hint = 'Save ftp://'
      OnClick = SaveClick
    end
    object About7: TMenuItem
      Caption = '&About...'
      OnClick = AboutClick
    end
  end
  object PopupMenuHomePage: TPopupMenu
    Left = 20
    Top = 92
    object Save1: TMenuItem
      Tag = 1
      Caption = '&Save checked subpages...'
      Hint = 'Save checked subpages'
      OnClick = SaveClick
    end
    object About1: TMenuItem
      Caption = '&About...'
      OnClick = AboutClick
    end
  end
  object SaveDialog: TSaveDialog
    DefaultExt = '*.*'
    Filter = 'any file format|*.*'
    Left = 212
    Top = 56
  end
end